[problem] Random i stop

[DePoS]

Witam Serdecznie

Sam już nie wydumam jak to zrobic wiec poprossze was o drobna pomoc

co zrobic zeby co 20 wsylanych keyow np zatrzymalo sie i wykonalo mouseclick ;]

jak narazie nie umiem tego nawet zatrzymac

kod :

 

 

 

Local $Letter = 0

 

 

HotKeySet("{tab}" , "ok")

 

while 1

 

If Random() < 0.5 Then

;Capitals

$Letter = Chr(Random(Asc("0"), Asc("9"), 0))

Elseif Random() < 0.5 Then

;Lower case

$Letter = Chr(Random(Asc("a"), Asc("z"), 1))

else

$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))

Endif

 

send($Letter)

 

 

wend

 

func ok()

Exit

endfunc

[Sopelek997]

Local $Letter = 0


HotKeySet("{tab}" , "ok")

while 1
for $i=1 to 20
If Random() < 0.5 Then
;Capitals
$Letter = Chr(Random(Asc("0"), Asc("9"), 0))
Elseif Random() < 0.5 Then
;Lower case
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
else
$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
Endif

send($Letter)

next
;tutaj ten twoj mouseclick
wend

func ok()
Exit
endfunc

PS. używaj tagów code

[DePoS]

Dziekuje wszystko dziala do zamkniecia